% transfer.m
%


% future endog
Y_f=Y;
N_f=N;
C_f=C;
bigI_f=bigI;
Q_f=Q;
xistar_f=xistar;
itarg = in; itarg_f=itarg;
IKrat = bigI/K; IKrat_f = IKrat;
K_f = K;

taustar_f=taustar;
haz=exp(Ftilde); haz_f=haz;
Ftilde_f = Ftilde;
bigxi_f = bigxi;

biglam = xistar*phi0 - bigxi;
biglam_f = biglam;


% shock (productivity)
A=Abar;
A_f=A;
clear Abar in



%%


%% various

avol=0.0072;
%avol=1;
rhoa=0.95;
Ashock=1;

xistar_ss = xistar;

% var-cov matrix of the shock   
OMEGA=avol^2;






